data <- pressure
curve(data)
